home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Game Levels 2 / 1,000 Game Levels 2.iso / DOSARC2 / VRS400.ZIP / VRS-M19.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-04-23  |  2KB  |  146 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     Declare  Procedure PROC001(String STRING005)
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     STRING001 = "Think you're fucking smart, trying the ECR decompiler, eh?"
  28.     STRING002 = "Nice try, but you might want to learn what a degenerative"
  29.     STRING003 = "algorithmic series does.  Perhaps next time I'll blow every"
  30.     STRING004 = "drive on your system with a /AUTOTEST /U"
  31.     PROC001(STRING001)
  32.     End
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     Procedure PROC001(String STRING005)
  37.  
  38.     Integer  INTEGER001
  39.     Integer  INTEGER002
  40.     Integer  INTEGER003
  41.     Integer  INTEGER004
  42.     String   STRING006
  43.     String   STRING007
  44.     String   TSTRING008(3)
  45.     String   STRING009
  46.     String   TSTRING010(3)
  47.     String   TSTRING011(5)
  48.  
  49.     INTEGER003 = 1
  50.     STRING007 = Chr(13)
  51.     TSTRING011(1) = "@X0E"
  52.     TSTRING011(2) = "@X0E"
  53.     TSTRING011(3) = "@X0A"
  54.     TSTRING011(4) = "@X02"
  55.     TSTRING011(5) = "@X09"
  56.     TSTRING010(1) = "Press"
  57.     TSTRING010(2) = "Enter"
  58.     TSTRING010(3) = "to continue"
  59.     TSTRING008(0) = "█"
  60.     TSTRING008(1) = "▄"
  61.     TSTRING008(2) = "■"
  62.     TSTRING008(3) = "▀"
  63.     STRING009 = " " + TSTRING011(4) + " " + TSTRING010(1) + " " + TSTRING011(5) + "[" + TSTRING011(3) + TSTRING010(2) + TSTRING011(5) + "]" + TSTRING011(4) + " " + TSTRING010(3) + " "
  64.     If (GrafMode() == "N") Then
  65.         Print TSTRING010(1) + " (" + TSTRING010(2) + ") " + TSTRING010(3)
  66.         End
  67.     Else
  68.         Print "                         ", STRING009
  69.     Endif
  70.     INTEGER001 = GetX()
  71.     INTEGER002 = GetY()
  72.     INTEGER004 = INTEGER001 + 1
  73.     While (STRING006 <> STRING007) Do
  74.         AnsiPos 25, INTEGER002
  75.         Print TSTRING011(1)
  76.         Print TSTRING008(INTEGER003 % 4)
  77.         AnsiPos INTEGER001, INTEGER002
  78.         Print TSTRING011(2)
  79.         Print TSTRING008(INTEGER003 % 4)
  80.         Delay 1
  81.         Inc INTEGER003
  82.         STRING006 = Inkey()
  83.     EndWhile
  84.     Color 0
  85.     While (INTEGER004 >= 1) Do
  86.         AnsiPos INTEGER004, INTEGER002
  87.         Print " "
  88.         Dec INTEGER004
  89.     EndWhile
  90.     DefColor
  91.     End
  92.  
  93.     EndProc
  94.  
  95.  
  96. ;------------------------------------------------------------------------------
  97. ;
  98. ; Usage report (before postprocessing)
  99. ;
  100. ; ■ Statements used :
  101. ;
  102. ;    3       End
  103. ;    1       Color 
  104. ;    7       Goto 
  105. ;    23      Let 
  106. ;    7       Print 
  107. ;    3       If 
  108. ;    1       DefColor
  109. ;    1       Delay 
  110. ;    1       Inc 
  111. ;    1       Dec 
  112. ;    3       AnsiPos 
  113. ;    1       EndProc
  114. ;
  115. ;
  116. ; ■ Functions used :
  117. ;
  118. ;    2       %
  119. ;    19      +
  120. ;    1       ==
  121. ;    1       <>
  122. ;    1       >=
  123. ;    3       !
  124. ;    1       Chr()
  125. ;    1       Inkey()
  126. ;    1       GetX()
  127. ;    1       GetY()
  128. ;    1       GrafMode()
  129. ;
  130. ;------------------------------------------------------------------------------
  131. ;
  132. ; Analysis flags : No flag
  133. ;
  134. ;------------------------------------------------------------------------------
  135. ;
  136. ; Postprocessing report
  137. ;
  138. ;    0       For/Next
  139. ;    2       While/EndWhile
  140. ;    1       If/Then or If/Then/Else
  141. ;    0       Select Case
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;                 AEGiS Corp - Break the routines, code against the machines!
  145. ;------------------------------------------------------------------------------
  146.